$file = $ARGV[0];
chomp($file);
open(BUFF,$file);
$file1 = "A_$file";
$file2 = "B_$file";
open(WRBUFF1,">$file1");
open(WRBUFF2,">$file2");
open(BUFF1,"probes_u133a");
open(BUFF2,"probes_u133b");
while($line = <BUFF1>)
{
	chomp($line);
	@array = split("\t",$line);
	$hash{"$array[0]_$array[1]"} = "A";
}
while($line = <BUFF2>)
{
        chomp($line);
        @array = split("\t",$line);
        $hash{"$array[0]_$array[1]"} = "B";
}
while($line = <BUFF>)
{
	chomp($line);
	$line =~ s/ //g;
	#print $line."\n";
	@array = split("\t",$line);
	if($hash{"$array[0]_$array[1]"} eq "A")
	{
		print WRBUFF1 $array[0]."\t".$array[1]."\t".$array[2]."\n";
	}
	if($hash{"$array[0]_$array[1]"} eq "B")
        {
                print WRBUFF2 $array[0]."\t".$array[1]."\t".$array[2]."\n";
        }

}

